home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / bbs / CoolTAStuff.lha / TAE.lha / Rexx / TAE.trans
Text File  |  1995-05-14  |  6KB  |  16 lines
  1. /* TransAmiga Everything! -
  2.    Displays 43 (!) pieces of information
  3.    about the system and user!
  4.    Version 1.00 Released 15.05.1995 
  5.    Written by Neil Barrett
  6.    Official TransAmiga Support BBS in the UK:
  7.         GateWAY BBS + 44 (0)1375 393816
  8.  
  9.    If you use and like this program, please send
  10.  me a netmail to 2:257/99 letting me know what you
  11. think of it, and of any bugs you find or suggestions
  12.              you have for improvement.
  13.  
  14.                       Enjoy!
  15. */
  16. options results;textdir='BBS:Text/';print "    TransAmiga Everything! by Neil Barrett at GateWAY BBS";print "Just getting your details from the files... please wait.....";USERINFO a;username=result;USERINFO 8;userstre=result;USERINFO b;usercity=result;USERINFO 9;userpost=result;USERINFO e;userphon=result;SYSTEMINFO j;systdate=result;SYSTEMINFO i;systtime=result;USERINFO ?;usernumb=result;SYSTEMINFO a;systcall=result;USERINFO p;usertime=result;SYSTEMINFO r;systbaud=result;USERINFO f;userlast=result;USERINFO u;usertima=result;SYSTEMINFO q;systtimb=result;SYSTEMINFO m;systtimc=result;USERINFO d;usercomp=result;SYSTEMINFO c;systtotm=result;USERINFO 4;usermsgr=result;USERINFO m;usermsgp=result;USERINFO I;userprot=result;USERINFO '%';userprom=result;SYSTEMINFO b;systlast=result;SYSTEMINFO 3;systonel=result;USERINFO x;useransi=result;USERINFO '=';userripg=result;print "                       Nearly there.....";USERINFO 2;userhotk=result;USERINFO 0;userfull=result;USERINFO 1;usermenu=result;USERINFO 3;userhand=result;USERINFO v;userscrl=result;BBSIDENTIFY NAME;bbsbname=result;BBSIDENTIFY SYSOP;bbssysop=result;USERINFO o;useracce=result;USERINFO g;userflag=result;USERINFO q;useruplf=result;USERINFO r;useruplk=result;USERINFO s;userdowf=result;USERINFO t;userdowk=result;USERINFO 7;userratf=result;USERINFO '$';userratk=result;USERINFO Z;userbeff=result;USERINFO '!';userbefk=result;cls;sendfile textdir||'TAE';if upper(userhand)='RESULT' then;do;userhand='No Handle Chosen';end;userinfo 'x';ansiflag=result;if ansiflag='ON' then;do;ESC='1B'X;BRIGHT=ESC||'[1m';NOANSI=ESC||'[0m';UP2='[2A';f0=ESC||'[30m';b0=ESC||'[40m';f1=ESC||'[31m';b1=ESC||'[41m';f2=ESC||'[32m';b2=ESC||'[42m';f3=ESC||'[33m';b3=ESC||'[43m';f4=ESC||'[34m';b4=ESC||'[44m';f5=ESC||'[35m';b5=ESC||'[45m';f6=ESC||'[36m';b6=ESC||'[46m';f7=ESC||'[37m';b7=ESC||'[47m';transmit f3||BRIGHT||ESC||'[3;11H'||username||ESC||'[4;11H'||left(userstre,38)||ESC||'[5;11H'||left(usercity,38)||ESC||'[6;11H'||userpost||ESC||'[7;16H'||userphon||ESC||'[3;56H'||systdate||ESC||'[3;70H'||systtime;transmit ESC||'[4;59H'||usernumb||ESC||'[4;72H'||systcall;transmit ESC||'5;64H'||usertime||ESC||'[5;73H'||systbaud||ESC||'[6;66H'||userlast||ESC||'[7;56H'||usertima||ESC||'[7;60H'||systtimb||ESC||'[7;66H'||systtimc;transmit ESC||'[9;15H'||left(usercomp,62)||ESC||'[11;22H'||systtotm||ESC||'[12;22H'||usermsgr||ESC||'[13;22H'||usermsgp||ESC||'[11;42H'||userprot||ESC||'[11;46H'||userprom||ESC||'[12;45H'||systlast;transmit ESC||'[13;45H'||left(systonel,33)||ESC||'[15;8H'||useransi||ESC||'[15;17H'||userripg||ESC||'[15;30H'||userhotk||ESC||'[15;43H'||userfull||ESC||'[15;57H'||usermenu||ESC||'[15;75H'||userscrl||ESC||'[16;10H'||left(userhand,20);transmit f6||BRIGHT||ESC||'[16;40H'||left(bbsbname,14)||ESC||'[16;57H'||left(bbssysop,21)||f3||BRIGHT||ESC||'[18;56H'||useruplf||ESC||'[18;67H'||useruplk||ESC||'[19;56H'||userdowf||ESC||'[19;67H'||userdowk||ESC||'[20;56H'||userratf;transmit ESC||'[20;67H'||userratk||ESC||'[22;56H'||userbeff||ESC||'[22;67H'||userbefk;userflag.1=left(userflag,1);userflag.2=substr(userflag,2,1);userflag.3=substr(userflag,3,1);userflag.4=substr(userflag,4,1);userflag.5=substr(userflag,5,1);userflag.6=substr(userflag,6,1);userflag.7=substr(userflag,7,1);userflag.8=substr(userflag,8,1);transmit ESC||'[22;23H'||userflag.1||ESC||'[22;25H'||userflag.2||ESC||'[22;27H'||userflag.3||ESC||'[22;29H'||userflag.4||ESC||'[22;31H'||userflag.5||ESC||'[22;33H'||userflag.6||ESC||'[22;35H'||userflag.7||ESC||'[22;37H'||userflag.8;stugillibrand=1;useracce.bar='*';do while stugillibrand<useracce/10;useracce.bar=useracce.bar||'*';stugillibrand=stugillibrand+1;end;if useracce=255 then;do;useracce.bar=useracce.bar||'*';end;transmit ESC||'[21;3H'||f1||BRIGHT||useracce.bar;transmit ESC||'[20;37H'||useracce||ESC||'[23;1H'||NOANSI||'';end;else;do;transmit '    Name: '||username;transmit '  Handle: '||userhand;transmit ' Address: '||userstre;transmit '        : '||usercity;transmit 'Postcode: '||userpost;transmit '   Phone: '||userphon;transmit 'Computer: '||usercomp;transmit '';transmit '      The Date: '||systdate;transmit '      The Time: '||systtime;transmit '       User No: '||usernumb;transmit '     Caller No: '||systcall;transmit '  Times Called: '||usertime;transmit '     Baud Rate: '||systbaud;transmit 'Your Last Call: '||userlast;transmit '          Time: Used '||usertima||'/'||systtimb||', '||systtimc||' remaining';transmit '';transmit 'Total Messages In System: '||systtotm;transmit '       Message Read Mode: '||usermsgr;transmit '  Messages Posted By You: '||usermsgp;transmit '';continue;cls;sendfile textdir||'TAE';transmit '  Protocol: '||userprot||', '||userprom;transmit '';transmit ' Last Caller: '||systlast;transmit '  Last Quote: '||systonel;transmit '';transmit ' Settings: ANSI '||useransi||', RIP '||userripg||', Hotkeys '||userhotk||', Full Screen Ed '||userfull;transmit '         : MenuMode '||usermenu||', Screen Length (lines) '||userscrl||'.';transmit '';transmit ' Your Access Level: '||useracce||', and your Flags: '||userflag;transmit '';transmit ' Youve uploaded '||useruplf||' files, '||useruplk||' KB, and downloaded '||userdowf||' files, '||userdowk||' bytes.';transmit ' Your ratio is 1:'||userratf||' files and 1:'||userratk||' KB and you may download '||userbeff||' files, '||userbefk||' KB before U/L.';transmit '';transmit ' Sysop of: '||bbsbname||' : '||bbssysop;end;continue;exit